+++ /dev/null
-IDENTIFICATION DIVISION
-PROGRAM-ID Radioactive_Decay
-
-ENVIRONMENT DIVISION
-ENGINE Anabrid-THAT
-REQUIRES COEFFICIENT 2
-REQUIRES INTEGRATOR 1
-REQUIRES INVERTER 1
-
-DATA DIVISION
-OUTPUT OUTPUT.X N
-COEFFICIENT.1 InitialValue
-COEFFICIENT.2 Decay
-
-PROGRAM DIVISION
-+1 -> COEFFICIENT.InitialValue -> N0
-N’, IC:N0 -> INTEGRATOR -> -N
--N -> COEFFICIENT.Decay -> -lambda*N=N’
--N -> INVERTER -> N
-
-OPERATION DIVISION
-MODE REPEAT
-OP-TIME 20ms